/ Developer CD Series 1996 March: Reference Library / Dev.CD Mar 96 RL / Dev.CD Mar 96 RL.toast / Technical Documentation / develop / develop Issue 11 / develop Issue 11 code / Exceptions.sea / Exceptions / DPrintf.c

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 44 50 72 69 6e 74 | 66 2e 63 00 00 00 00 00 |..DPrint|f.c.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 1e 71 00 | 00 01 ac a6 8a 2b aa a6 |......q.|.....+..|
|00000060| 8a 2b aa 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.+......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 12 be 00 00 |........|........|
|00000080| 0d 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |./******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 0d | 0d 46 49 4c 45 4e 41 4d |*******.|.FILENAM|
|000000d0| 45 0d 09 44 50 72 69 6e | 74 66 2e 63 0d 0d 44 45 |E..DPrin|tf.c..DE|
|000000e0| 53 43 52 49 50 54 49 4f | 4e 0d 09 54 68 69 73 20 |SCRIPTIO|N..This |
|000000f0| 69 73 20 74 68 65 20 64 | 70 72 69 6e 74 66 20 4d |is the d|printf M|
|00000100| 61 63 73 62 75 67 20 64 | 63 6d 64 20 66 6f 72 20 |acsbug d|cmd for |
|00000110| 75 73 65 20 77 69 74 68 | 20 45 78 63 65 70 74 69 |use with| Excepti|
|00000120| 6f 6e 73 2e 68 2e 0d 0d | 43 4f 50 59 52 49 47 48 |ons.h...|COPYRIGH|
|00000130| 54 0d 09 43 6f 70 79 72 | 69 67 68 74 20 a9 20 41 |T..Copyr|ight . A|
|00000140| 70 70 6c 65 20 43 6f 6d | 70 75 74 65 72 2c 20 49 |pple Com|puter, I|
|00000150| 6e 63 2e 20 31 39 39 30 | 2d 31 39 39 31 0d 09 41 |nc. 1990|-1991..A|
|00000160| 6c 6c 20 72 69 67 68 74 | 73 20 72 65 73 65 72 76 |ll right|s reserv|
|00000170| 65 64 2e 0d 0d 52 4f 55 | 54 49 4e 45 53 0d 09 45 |ed...ROU|TINES..E|
|00000180| 58 54 45 52 4e 41 4c 53 | 0d 09 09 43 6f 6d 6d 61 |XTERNALS|...Comma|
|00000190| 6e 64 45 6e 74 72 79 20 | 28 64 70 72 69 6e 74 66 |ndEntry |(dprintf|
|000001a0| 29 0d 09 49 4e 54 45 52 | 4e 41 4c 53 0d 09 09 46 |)..INTER|NALS...F|
|000001b0| 6f 72 6d 61 74 46 6c 6f | 61 74 0d 09 09 46 6f 72 |ormatFlo|at...For|
|000001c0| 6d 61 74 4c 6f 6e 67 0d | 0d 4d 4f 44 49 46 49 43 |matLong.|.MODIFIC|
|000001d0| 41 54 49 4f 4e 20 48 49 | 53 54 4f 52 59 0d 09 31 |ATION HI|STORY..1|
|000001e0| 31 2f 30 35 2f 39 31 09 | 53 65 61 6e 20 50 61 72 |1/05/91.|Sean Par|
|000001f0| 65 6e 74 0d 09 09 31 29 | 20 43 6c 65 61 6e 65 64 |ent...1)| Cleaned|
|00000200| 20 75 70 20 66 6f 72 20 | 44 65 76 65 6c 6f 70 20 | up for |Develop |
|00000210| 61 72 74 69 63 6c 65 2e | 0d 09 0d 2a 2a 2a 2a 2a |article.|...*****|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000260| 2f 0d 0d 2f 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/../****|********|
|00000270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 0d 49 4e 43 4c 55 |********|*..INCLU|
|000002b0| 44 45 53 0d 0d 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |DES..***|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2f 0d 0d 23 69 6e |********|**/..#in|
|00000300| 63 6c 75 64 65 20 3c 73 | 74 72 69 6e 67 2e 68 3e |clude <s|tring.h>|
|00000310| 0d 23 69 6e 63 6c 75 64 | 65 20 3c 73 74 64 69 6f |.#includ|e <stdio|
|00000320| 2e 68 3e 0d 23 69 6e 63 | 6c 75 64 65 20 3c 54 79 |.h>.#inc|lude <Ty|
|00000330| 70 65 73 2e 68 3e 0d 23 | 69 6e 63 6c 75 64 65 20 |pes.h>.#|include |
|00000340| 3c 46 69 78 4d 61 74 68 | 2e 68 3e 0d 23 69 6e 63 |<FixMath|.h>.#inc|
|00000350| 6c 75 64 65 20 22 64 63 | 6d 64 2e 68 22 0d 23 69 |lude "dc|md.h".#i|
|00000360| 6e 63 6c 75 64 65 20 22 | 70 75 74 2e 68 22 0d 0d |nclude "|put.h"..|
|00000370| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003b0| 2a 2a 2a 2a 2a 2a 0d 0d | 50 52 4f 54 4f 54 59 50 |******..|PROTOTYP|
|000003c0| 45 53 0d 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |ES..****|********|
|000003d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000400| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0d 0d 76 6f 69 64 |********|*/..void|
|00000410| 20 46 6f 72 6d 61 74 46 | 6c 6f 61 74 28 63 6f 6e | FormatF|loat(con|
|00000420| 73 74 20 63 68 61 72 2a | 20 66 6f 72 6d 61 74 2c |st char*| format,|
|00000430| 20 73 68 6f 72 74 20 6e | 75 6d 41 72 67 73 2c 20 | short n|umArgs, |
|00000440| 6c 6f 6e 67 20 66 69 72 | 73 74 41 72 67 2c 0d 09 |long fir|stArg,..|
|00000450| 6c 6f 6e 67 20 73 65 63 | 6f 6e 64 41 72 67 2c 20 |long sec|ondArg, |
|00000460| 66 6c 6f 61 74 20 74 68 | 65 46 6c 6f 61 74 29 3b |float th|eFloat);|
|00000470| 0d 0d 76 6f 69 64 20 46 | 6f 72 6d 61 74 4c 6f 6e |..void F|ormatLon|
|00000480| 67 28 63 6f 6e 73 74 20 | 63 68 61 72 2a 20 66 6f |g(const |char* fo|
|00000490| 72 6d 61 74 2c 20 73 68 | 6f 72 74 20 6e 75 6d 41 |rmat, sh|ort numA|
|000004a0| 72 67 73 2c 20 6c 6f 6e | 67 20 66 69 72 73 74 41 |rgs, lon|g firstA|
|000004b0| 72 67 2c 0d 09 6c 6f 6e | 67 20 73 65 63 6f 6e 64 |rg,..lon|g second|
|000004c0| 41 72 67 2c 20 6c 6f 6e | 67 20 74 68 65 4c 6f 6e |Arg, lon|g theLon|
|000004d0| 67 29 3b 0d 0d 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |g);../**|********|
|000004e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0d 52 4f 55 |********|***..ROU|
|00000520| 54 49 4e 45 0d 09 43 6f | 6d 6d 61 6e 64 45 6e 74 |TINE..Co|mmandEnt|
|00000530| 72 79 0d 0d 44 45 53 43 | 52 49 50 54 49 4f 4e 0d |ry..DESC|RIPTION.|
|00000540| 09 54 68 69 73 20 69 73 | 20 74 68 65 20 69 6d 70 |.This is| the imp|
|00000550| 6c 65 6d 65 6e 74 61 74 | 69 6f 6e 20 6f 66 20 74 |lementat|ion of t|
|00000560| 68 65 20 64 70 72 69 6e | 74 66 20 64 63 6d 64 2e |he dprin|tf dcmd.|
|00000570| 20 53 65 65 20 45 78 63 | 65 70 74 69 6f 6e 73 2e | See Exc|eptions.|
|00000580| 68 0d 09 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |h..for m|ore info|
|00000590| 72 6d 61 74 69 6f 6e 2e | 0d 0d 2a 2a 2a 2a 2a 2a |rmation.|..******|
|000005a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2f |********|*******/|
|000005e0| 0d 0d 70 61 73 63 61 6c | 20 76 6f 69 64 20 43 6f |..pascal| void Co|
|000005f0| 6d 6d 61 6e 64 45 6e 74 | 72 79 28 64 63 6d 64 42 |mmandEnt|ry(dcmdB|
|00000600| 6c 6f 63 6b 2a 20 70 61 | 72 61 6d 50 74 72 29 0d |lock* pa|ramPtr).|
|00000610| 7b 0d 09 73 77 69 74 63 | 68 20 28 70 61 72 61 6d |{..switc|h (param|
|00000620| 50 74 72 2d 3e 72 65 71 | 75 65 73 74 29 20 7b 0d |Ptr->req|uest) {.|
|00000630| 09 63 61 73 65 20 64 63 | 6d 64 49 6e 69 74 3a 0d |.case dc|mdInit:.|
|00000640| 09 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 64 |..break;|..case d|
|00000650| 63 6d 64 44 6f 49 74 3a | 0d 09 09 7b 0d 09 09 09 |cmdDoIt:|...{....|
|00000660| 63 68 61 72 09 09 66 6f | 72 6d 61 74 5b 32 35 36 |char..fo|rmat[256|
|00000670| 5d 3b 0d 09 09 09 73 69 | 7a 65 5f 74 09 66 6f 72 |];....si|ze_t.for|
|00000680| 6d 61 74 53 69 7a 65 3b | 0d 09 09 09 73 68 6f 72 |matSize;|....shor|
|00000690| 74 09 09 69 2c 20 6a 2c | 20 6e 75 6d 41 72 67 73 |t..i, j,| numArgs|
|000006a0| 3b 0d 09 09 09 6c 6f 6e | 67 09 09 66 69 72 73 74 |;....lon|g..first|
|000006b0| 41 72 67 2c 20 73 65 63 | 6f 6e 64 41 72 67 3b 0d |Arg, sec|ondArg;.|
|000006c0| 09 09 09 73 68 6f 72 74 | 2a 09 73 68 6f 72 74 57 |...short|*.shortW|
|000006d0| 61 6c 6b 65 72 3b 0d 09 | 09 09 46 69 78 65 64 2a |alker;..|..Fixed*|
|000006e0| 09 66 69 78 65 64 57 61 | 6c 6b 65 72 3b 0d 09 09 |.fixedWa|lker;...|
|000006f0| 09 63 68 61 72 2a 09 09 | 6e 65 78 74 70 3b 0d 09 |.char*..|nextp;..|
|00000700| 09 09 63 68 61 72 2a 09 | 09 63 6f 6e 76 43 68 61 |..char*.|.convCha|
|00000710| 72 3b 0d 09 09 09 63 68 | 61 72 2a 09 09 73 74 61 |r;....ch|ar*..sta|
|00000720| 63 6b 50 74 72 20 3d 0d | 09 09 09 09 28 63 68 61 |ckPtr =.|....(cha|
|00000730| 72 2a 29 70 61 72 61 6d | 50 74 72 2d 3e 72 65 67 |r*)param|Ptr->reg|
|00000740| 69 73 74 65 72 46 69 6c | 65 5b 41 37 52 65 67 69 |isterFil|e[A7Regi|
|00000750| 73 74 65 72 5d 3b 0d 09 | 09 09 75 6e 73 69 67 6e |ster];..|..unsign|
|00000760| 65 64 09 63 68 61 72 2a | 20 66 6f 72 6d 61 74 57 |ed.char*| formatW|
|00000770| 61 6c 6b 65 72 20 3d 20 | 2a 28 28 63 68 61 72 2a |alker = |*((char*|
|00000780| 2a 29 73 74 61 63 6b 50 | 74 72 29 2b 2b 3b 0d 09 |*)stackP|tr)++;..|
|00000790| 09 09 0d 09 09 09 64 63 | 6d 64 53 77 61 70 57 6f |......dc|mdSwapWo|
|000007a0| 72 6c 64 73 28 29 3b 20 | 2f 2a 20 6e 6f 74 20 6e |rlds(); |/* not n|
|000007b0| 65 63 65 73 73 61 72 79 | 20 2a 2f 0d 09 09 09 0d |ecessary| */.....|
|000007c0| 09 09 09 2f 2a 20 73 74 | 61 72 74 20 73 63 61 6e |.../* st|art scan|
|000007d0| 6e 69 6e 67 20 75 6e 74 | 69 6c 20 65 6e 64 20 6f |ning unt|il end o|
|000007e0| 66 20 66 6f 72 6d 61 74 | 20 73 74 72 69 6e 67 20 |f format| string |
|000007f0| 2a 2f 0d 09 09 09 0d 09 | 09 09 77 68 69 6c 65 20 |*/......|..while |
|00000800| 28 2a 66 6f 72 6d 61 74 | 57 61 6c 6b 65 72 20 21 |(*format|Walker !|
|00000810| 3d 20 27 5c 30 27 29 20 | 7b 0d 0d 09 09 09 09 2f |= '\0') |{....../|
|00000820| 2a 0d 09 09 09 09 09 46 | 69 6e 64 20 74 68 65 20 |*......F|ind the |
|00000830| 6e 65 78 74 20 66 6f 72 | 6d 61 74 20 73 70 65 63 |next for|mat spec|
|00000840| 20 28 69 2e 65 2e 20 25 | 64 29 20 61 6e 64 20 70 | (i.e. %|d) and p|
|00000850| 72 69 6e 74 20 6f 75 74 | 0d 09 09 09 09 09 61 6e |rint out|......an|
|00000860| 79 74 68 69 6e 67 20 62 | 65 66 6f 72 65 20 69 74 |ything b|efore it|
|00000870| 2e 0d 09 09 09 09 2a 2f | 0d 09 09 09 09 0d 09 09 |......*/|........|
|00000880| 09 09 6e 65 78 74 70 20 | 3d 20 73 74 72 63 68 72 |..nextp |= strchr|
|00000890| 28 66 6f 72 6d 61 74 57 | 61 6c 6b 65 72 2c 20 27 |(formatW|alker, '|
|000008a0| 25 27 29 3b 0d 09 09 09 | 09 69 66 20 28 6e 65 78 |%');....|.if (nex|
|000008b0| 74 70 20 3d 3d 20 6e 69 | 6c 29 0d 09 09 09 09 09 |tp == ni|l)......|
|000008c0| 6e 65 78 74 70 20 3d 20 | 66 6f 72 6d 61 74 57 61 |nextp = |formatWa|
|000008d0| 6c 6b 65 72 20 2b 20 73 | 74 72 6c 65 6e 28 66 6f |lker + s|trlen(fo|
|000008e0| 72 6d 61 74 57 61 6c 6b | 65 72 29 3b 0d 0d 09 09 |rmatWalk|er);....|
|000008f0| 09 09 50 75 74 42 79 74 | 65 73 54 6f 28 66 6f 72 |..PutByt|esTo(for|
|00000900| 6d 61 74 57 61 6c 6b 65 | 72 2c 20 6e 65 78 74 70 |matWalke|r, nextp|
|00000910| 20 2d 20 66 6f 72 6d 61 | 74 57 61 6c 6b 65 72 2c | - forma|tWalker,|
|00000920| 20 30 29 3b 0d 09 09 09 | 09 66 6f 72 6d 61 74 57 | 0);....|.formatW|
|00000930| 61 6c 6b 65 72 20 3d 20 | 6e 65 78 74 70 3b 0d 09 |alker = |nextp;..|
|00000940| 09 09 09 0d 09 09 09 09 | 69 66 20 28 2a 66 6f 72 |........|if (*for|
|00000950| 6d 61 74 57 61 6c 6b 65 | 72 20 3d 3d 20 27 5c 30 |matWalke|r == '\0|
|00000960| 27 29 20 62 72 65 61 6b | 3b 0d 0d 09 09 09 09 2f |') break|;....../|
|00000970| 2a 0d 09 09 09 09 09 46 | 69 6e 64 20 74 68 65 20 |*......F|ind the |
|00000980| 6c 65 6e 67 74 68 20 6f | 66 20 74 68 65 20 66 6f |length o|f the fo|
|00000990| 72 6d 61 74 20 73 70 65 | 63 20 28 73 6b 69 70 20 |rmat spe|c (skip |
|000009a0| 69 6e 69 74 69 61 6c 20 | 25 20 61 6e 64 0d 09 09 |initial |% and...|
|000009b0| 09 09 09 69 6e 63 6c 75 | 64 65 20 74 68 65 20 63 |...inclu|de the c|
|000009c0| 6f 6e 76 65 72 74 69 6f | 6e 20 63 68 61 72 29 0d |onvertio|n char).|
|000009d0| 09 09 09 09 2a 2f 0d 09 | 09 09 09 0d 09 09 09 09 |....*/..|........|
|000009e0| 66 6f 72 6d 61 74 53 69 | 7a 65 20 3d 20 73 74 72 |formatSi|ze = str|
|000009f0| 63 73 70 6e 28 66 6f 72 | 6d 61 74 57 61 6c 6b 65 |cspn(for|matWalke|
|00000a00| 72 20 2b 20 31 2c 0d 09 | 09 09 09 09 22 62 63 64 |r + 1,..|...."bcd|
|00000a10| 65 45 66 46 67 47 69 6a | 4a 4d 6f 70 50 72 52 73 |eEfFgGij|JMopPrRs|
|00000a20| 54 75 78 58 25 22 29 20 | 2b 20 32 3b 0d 09 09 09 |TuxX%") |+ 2;....|
|00000a30| 09 0d 09 09 09 09 2f 2a | 20 4d 61 6b 65 20 61 20 |....../*| Make a |
|00000a40| 63 6f 70 79 20 6f 66 20 | 74 68 65 20 66 6f 72 6d |copy of |the form|
|00000a50| 61 74 20 73 70 65 63 2e | 20 2a 2f 0d 09 09 09 09 |at spec.| */.....|
|00000a60| 0d 09 09 09 09 6d 65 6d | 63 70 79 28 66 6f 72 6d |.....mem|cpy(form|
|00000a70| 61 74 2c 20 66 6f 72 6d | 61 74 57 61 6c 6b 65 72 |at, form|atWalker|
|00000a80| 2c 20 66 6f 72 6d 61 74 | 53 69 7a 65 29 3b 0d 09 |, format|Size);..|
|00000a90| 09 09 09 66 6f 72 6d 61 | 74 5b 66 6f 72 6d 61 74 |...forma|t[format|
|00000aa0| 53 69 7a 65 5d 20 3d 20 | 28 63 68 61 72 29 27 5c |Size] = |(char)'\|
|00000ab0| 30 27 3b 0d 09 09 09 09 | 0d 09 09 09 09 2f 2a 0d |0';.....|...../*.|
|00000ac0| 09 09 09 09 09 49 66 20 | 74 68 65 20 73 70 65 63 |.....If |the spec|
|00000ad0| 20 63 6f 6e 74 61 69 6e | 73 20 22 2a 22 20 69 6e | contain|s "*" in|
|00000ae0| 20 70 6c 61 63 65 20 6f | 66 20 66 69 65 6c 64 20 | place o|f field |
|00000af0| 77 69 64 74 68 20 6f 72 | 0d 09 09 09 09 09 70 72 |width or|......pr|
|00000b00| 65 63 69 73 69 6f 6e 20 | 74 68 65 6e 20 67 65 74 |ecision |then get|
|00000b10| 20 74 68 65 20 77 69 64 | 74 68 20 61 6e 64 2f 6f | the wid|th and/o|
|00000b20| 72 20 70 72 65 63 69 73 | 69 6f 6e 20 66 72 6f 6d |r precis|ion from|
|00000b30| 0d 09 09 09 09 09 74 68 | 65 20 73 74 61 63 6b 2e |......th|e stack.|
|00000b40| 0d 09 09 09 09 2a 2f 0d | 09 09 09 09 0d 09 09 09 |.....*/.|........|
|00000b50| 09 69 20 3d 20 28 73 68 | 6f 72 74 29 28 73 74 72 |.i = (sh|ort)(str|
|00000b60| 63 73 70 6e 28 66 6f 72 | 6d 61 74 2c 20 22 2a 22 |cspn(for|mat, "*"|
|00000b70| 29 20 2b 20 31 29 3b 0d | 09 09 09 09 69 66 20 28 |) + 1);.|....if (|
|00000b80| 69 20 3c 20 66 6f 72 6d | 61 74 53 69 7a 65 29 20 |i < form|atSize) |
|00000b90| 7b 0d 09 09 09 09 09 66 | 69 72 73 74 41 72 67 20 |{......f|irstArg |
|00000ba0| 3d 20 2a 28 28 6c 6f 6e | 67 2a 29 73 74 61 63 6b |= *((lon|g*)stack|
|00000bb0| 50 74 72 29 2b 2b 3b 0d | 09 09 09 09 0d 09 09 09 |Ptr)++;.|........|
|00000bc0| 09 09 6a 20 3d 20 28 73 | 68 6f 72 74 29 28 73 74 |..j = (s|hort)(st|
|00000bd0| 72 63 73 70 6e 28 66 6f | 72 6d 61 74 20 2b 20 69 |rcspn(fo|rmat + i|
|00000be0| 2c 20 22 2a 22 29 20 2b | 20 69 20 2b 20 31 29 3b |, "*") +| i + 1);|
|00000bf0| 0d 09 09 09 09 09 69 66 | 20 28 6a 20 3c 20 66 6f |......if| (j < fo|
|00000c00| 72 6d 61 74 53 69 7a 65 | 29 20 7b 0d 09 09 09 09 |rmatSize|) {.....|
|00000c10| 09 09 73 65 63 6f 6e 64 | 41 72 67 20 3d 20 2a 28 |..second|Arg = *(|
|00000c20| 28 6c 6f 6e 67 2a 29 73 | 74 61 63 6b 50 74 72 29 |(long*)s|tackPtr)|
|00000c30| 2b 2b 3b 0d 09 09 09 09 | 09 09 6e 75 6d 41 72 67 |++;.....|..numArg|
|00000c40| 73 20 3d 20 32 3b 0d 09 | 09 09 09 09 7d 20 65 6c |s = 2;..|....} el|
|00000c50| 73 65 20 6e 75 6d 41 72 | 67 73 20 3d 20 31 3b 0d |se numAr|gs = 1;.|
|00000c60| 09 09 09 09 7d 20 65 6c | 73 65 20 6e 75 6d 41 72 |....} el|se numAr|
|00000c70| 67 73 20 3d 20 30 3b 0d | 09 09 09 09 0d 09 09 09 |gs = 0;.|........|
|00000c80| 09 66 6f 72 6d 61 74 57 | 61 6c 6b 65 72 20 2b 3d |.formatW|alker +=|
|00000c90| 20 66 6f 72 6d 61 74 53 | 69 7a 65 3b 20 2f 2a 20 | formatS|ize; /* |
|00000ca0| 69 6e 63 72 65 6d 65 6e | 74 20 74 68 65 20 66 6f |incremen|t the fo|
|00000cb0| 72 6d 61 74 20 70 20 2a | 2f 0d 09 09 09 09 0d 09 |rmat p *|/.......|
|00000cc0| 09 09 09 2f 2a 0d 09 09 | 09 09 09 47 65 74 20 61 |.../*...|...Get a|
|00000cd0| 64 64 72 65 73 73 20 6f | 66 20 63 6f 6e 76 65 72 |ddress o|f conver|
|00000ce0| 73 69 6f 6e 20 63 68 61 | 72 61 63 74 65 72 2e 20 |sion cha|racter. |
|00000cf0| 41 64 64 72 65 73 73 20 | 69 73 20 75 73 65 64 0d |Address |is used.|
|00000d00| 09 09 09 09 09 73 6f 20 | 69 74 20 63 61 6e 20 62 |.....so |it can b|
|00000d10| 65 20 63 68 61 6e 67 65 | 64 20 64 69 72 65 63 74 |e change|d direct|
|00000d20| 6c 79 20 69 6e 20 74 68 | 65 20 66 6f 72 6d 61 74 |ly in th|e format|
|00000d30| 20 73 70 65 63 2e 0d 09 | 09 09 09 2a 2f 0d 09 09 | spec...|...*/...|
|00000d40| 09 09 0d 09 09 09 09 63 | 6f 6e 76 43 68 61 72 20 |.......c|onvChar |
|00000d50| 3d 20 26 66 6f 72 6d 61 | 74 5b 66 6f 72 6d 61 74 |= &forma|t[format|
|00000d60| 53 69 7a 65 20 2d 20 31 | 5d 3b 0d 09 09 09 09 0d |Size - 1|];......|
|00000d70| 09 09 09 09 2f 2a 0d 09 | 09 09 09 09 49 66 20 74 |..../*..|....If t|
|00000d80| 68 65 20 63 6f 6e 76 65 | 72 73 69 6f 6e 20 63 68 |he conve|rsion ch|
|00000d90| 61 72 61 63 74 65 72 20 | 72 65 71 75 69 72 65 73 |aracter |requires|
|00000da0| 20 73 70 65 63 69 61 6c | 20 74 72 65 61 74 6d 65 | special| treatme|
|00000db0| 6e 74 0d 09 09 09 09 09 | 74 68 65 6e 20 66 69 78 |nt......|then fix|
|00000dc0| 20 69 74 20 75 70 20 68 | 65 72 65 2e 20 4f 74 68 | it up h|ere. Oth|
|00000dd0| 65 72 77 69 73 65 20 64 | 6f 20 74 68 65 20 73 74 |erwise d|o the st|
|00000de0| 61 6e 64 61 72 64 0d 09 | 09 09 09 09 66 6f 72 6d |andard..|....form|
|00000df0| 61 74 74 69 6e 67 2e 0d | 09 09 09 09 2a 2f 0d 09 |atting..|....*/..|
|00000e00| 09 09 09 0d 09 09 09 09 | 73 77 69 74 63 68 20 28 |........|switch (|
|00000e10| 2a 63 6f 6e 76 43 68 61 | 72 29 20 7b 0d 09 09 09 |*convCha|r) {....|
|00000e20| 09 63 61 73 65 20 27 62 | 27 3a 20 2f 2a 20 62 6f |.case 'b|': /* bo|
|00000e30| 6f 6c 65 61 6e 20 2a 2f | 0d 09 09 09 09 09 69 66 |olean */|......if|
|00000e40| 20 28 2a 28 28 6c 6f 6e | 67 2a 29 73 74 61 63 6b | (*((lon|g*)stack|
|00000e50| 50 74 72 29 2b 2b 29 20 | 50 75 74 43 53 74 72 28 |Ptr)++) |PutCStr(|
|00000e60| 22 74 72 75 65 22 29 3b | 0d 09 09 09 09 09 65 6c |"true");|......el|
|00000e70| 73 65 20 50 75 74 43 53 | 74 72 28 22 66 61 6c 73 |se PutCS|tr("fals|
|00000e80| 65 22 29 3b 0d 09 09 09 | 09 09 62 72 65 61 6b 3b |e");....|..break;|
|00000e90| 0d 09 09 09 09 63 61 73 | 65 20 27 6a 27 3a 20 2f |.....cas|e 'j': /|
|00000ea0| 2a 20 50 6f 69 6e 74 20 | 2a 2f 0d 09 09 09 09 09 |* Point |*/......|
|00000eb0| 2a 63 6f 6e 76 43 68 61 | 72 20 3d 20 27 64 27 3b |*convCha|r = 'd';|
|00000ec0| 0d 09 09 09 09 09 0d 09 | 09 09 09 09 66 6f 72 20 |........|....for |
|00000ed0| 28 69 20 3d 20 31 3b 20 | 69 20 3e 3d 20 30 3b 20 |(i = 1; |i >= 0; |
|00000ee0| 2d 2d 69 29 20 7b 0d 09 | 09 09 09 09 09 46 6f 72 |--i) {..|.....For|
|00000ef0| 6d 61 74 4c 6f 6e 67 28 | 66 6f 72 6d 61 74 2c 20 |matLong(|format, |
|00000f00| 6e 75 6d 41 72 67 73 2c | 20 66 69 72 73 74 41 72 |numArgs,| firstAr|
|00000f10| 67 2c 20 73 65 63 6f 6e | 64 41 72 67 2c 0d 09 09 |g, secon|dArg,...|
|00000f20| 09 09 09 09 09 2a 28 28 | 73 68 6f 72 74 2a 29 73 |.....*((|short*)s|
|00000f30| 74 61 63 6b 50 74 72 29 | 2b 2b 29 3b 0d 09 09 09 |tackPtr)|++);....|
|00000f40| 09 09 09 69 66 20 28 69 | 20 21 3d 20 30 29 20 50 |...if (i| != 0) P|
|00000f50| 75 74 43 53 74 72 28 22 | 2c 20 22 29 3b 0d 09 09 |utCStr("|, ");...|
|00000f60| 09 09 09 7d 0d 09 09 09 | 09 09 62 72 65 61 6b 3b |...}....|..break;|
|00000f70| 0d 09 09 09 09 63 61 73 | 65 20 27 4a 27 3a 20 2f |.....cas|e 'J': /|
|00000f80| 2a 20 70 6f 69 6e 74 2a | 20 2a 2f 0d 09 09 09 09 |* point*| */.....|
|00000f90| 09 2a 63 6f 6e 76 43 68 | 61 72 20 3d 20 27 66 27 |.*convCh|ar = 'f'|
|00000fa0| 3b 0d 09 09 09 09 09 0d | 09 09 09 09 09 66 69 78 |;.......|.....fix|
|00000fb0| 65 64 57 61 6c 6b 65 72 | 20 3d 20 2a 28 28 46 69 |edWalker| = *((Fi|
|00000fc0| 78 65 64 2a 2a 29 73 74 | 61 63 6b 50 74 72 29 2b |xed**)st|ackPtr)+|
|00000fd0| 2b 3b 0d 09 09 09 09 09 | 0d 09 09 09 09 09 66 6f |+;......|......fo|
|00000fe0| 72 20 28 69 20 3d 20 31 | 3b 20 69 20 3e 3d 20 30 |r (i = 1|; i >= 0|
|00000ff0| 3b 20 2d 2d 69 29 20 7b | 0d 09 09 09 09 09 09 46 |; --i) {|.......F|
|00001000| 6f 72 6d 61 74 46 6c 6f | 61 74 28 66 6f 72 6d 61 |ormatFlo|at(forma|
|00001010| 74 2c 20 6e 75 6d 41 72 | 67 73 2c 20 66 69 72 73 |t, numAr|gs, firs|
|00001020| 74 41 72 67 2c 20 73 65 | 63 6f 6e 64 41 72 67 2c |tArg, se|condArg,|
|00001030| 0d 09 09 09 09 09 09 09 | 28 66 6c 6f 61 74 29 2a |........|(float)*|
|00001040| 66 69 78 65 64 57 61 6c | 6b 65 72 2b 2b 20 2f 20 |fixedWal|ker++ / |
|00001050| 30 78 30 30 30 31 30 30 | 30 30 29 3b 0d 09 09 09 |0x000100|00);....|
|00001060| 09 09 09 09 09 09 09 09 | 09 09 0d 09 09 09 09 09 |........|........|
|00001070| 09 69 66 20 28 69 20 21 | 3d 20 30 29 20 50 75 74 |.if (i !|= 0) Put|
|00001080| 43 53 74 72 28 22 2c 20 | 22 29 3b 0d 09 09 09 09 |CStr(", |");.....|
|00001090| 09 7d 0d 09 09 09 09 09 | 62 72 65 61 6b 3b 0d 09 |.}......|break;..|
|000010a0| 09 09 09 63 61 73 65 20 | 27 54 27 3a 20 2f 2a 20 |...case |'T': /* |
|000010b0| 46 72 61 63 74 20 2a 2f | 0d 09 09 09 09 09 2a 63 |Fract */|......*c|
|000010c0| 6f 6e 76 43 68 61 72 20 | 3d 20 27 66 27 3b 0d 09 |onvChar |= 'f';..|
|000010d0| 09 09 09 09 0d 09 09 09 | 09 09 46 6f 72 6d 61 74 |........|..Format|
|000010e0| 46 6c 6f 61 74 28 66 6f | 72 6d 61 74 2c 20 6e 75 |Float(fo|rmat, nu|
|000010f0| 6d 41 72 67 73 2c 20 66 | 69 72 73 74 41 72 67 2c |mArgs, f|irstArg,|
|00001100| 20 73 65 63 6f 6e 64 41 | 72 67 2c 0d 09 09 09 09 | secondA|rg,.....|
|00001110| 09 09 28 66 6c 6f 61 74 | 29 28 2a 28 28 46 72 61 |..(float|)(*((Fra|
|00001120| 63 74 2a 29 73 74 61 63 | 6b 50 74 72 29 2b 2b 29 |ct*)stac|kPtr)++)|
|00001130| 20 2f 20 30 78 34 30 30 | 30 30 30 30 30 29 3b 0d | / 0x400|00000);.|
|00001140| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |........|........|
|00001150| 0d 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00001160| 09 63 61 73 65 20 27 4d | 27 3a 20 2f 2a 20 6d 61 |.case 'M|': /* ma|
|00001170| 70 70 69 6e 67 20 2a 2f | 0d 09 09 09 09 09 2a 63 |pping */|......*c|
|00001180| 6f 6e 76 43 68 61 72 20 | 3d 20 27 66 27 3b 0d 09 |onvChar |= 'f';..|
|00001190| 09 09 09 09 0d 09 09 09 | 09 09 66 69 78 65 64 57 |........|..fixedW|
|000011a0| 61 6c 6b 65 72 20 3d 20 | 2a 28 28 46 69 78 65 64 |alker = |*((Fixed|
|000011b0| 2a 2a 29 73 74 61 63 6b | 50 74 72 29 2b 2b 3b 0d |**)stack|Ptr)++;.|
|000011c0| 09 09 09 09 09 0d 09 09 | 09 09 09 66 6f 72 20 28 |........|...for (|
|000011d0| 6a 20 3d 20 32 3b 20 6a | 20 3e 3d 20 30 3b 20 2d |j = 2; j| >= 0; -|
|000011e0| 2d 6a 29 20 7b 0d 09 09 | 09 09 09 09 66 6f 72 20 |-j) {...|....for |
|000011f0| 28 69 20 3d 20 31 3b 20 | 69 20 3e 3d 20 30 3b 20 |(i = 1; |i >= 0; |
|00001200| 2d 2d 69 29 20 7b 0d 09 | 09 09 09 09 09 09 46 6f |--i) {..|......Fo|
|00001210| 72 6d 61 74 46 6c 6f 61 | 74 28 66 6f 72 6d 61 74 |rmatFloa|t(format|
|00001220| 2c 20 6e 75 6d 41 72 67 | 73 2c 20 66 69 72 73 74 |, numArg|s, first|
|00001230| 41 72 67 2c 20 73 65 63 | 6f 6e 64 41 72 67 2c 0d |Arg, sec|ondArg,.|
|00001240| 09 09 09 09 09 09 09 09 | 28 66 6c 6f 61 74 29 2a |........|(float)*|
|00001250| 66 69 78 65 64 57 61 6c | 6b 65 72 2b 2b 20 2f 20 |fixedWal|ker++ / |
|00001260| 30 78 30 30 30 31 30 30 | 30 30 29 3b 0d 09 09 09 |0x000100|00);....|
|00001270| 09 09 09 09 0d 09 09 09 | 09 09 09 09 50 75 74 43 |........|....PutC|
|00001280| 53 74 72 28 22 2c 20 22 | 29 3b 0d 09 09 09 09 09 |Str(", "|);......|
|00001290| 09 7d 0d 09 09 09 09 09 | 09 46 6f 72 6d 61 74 46 |.}......|.FormatF|
|000012a0| 6c 6f 61 74 28 66 6f 72 | 6d 61 74 2c 20 6e 75 6d |loat(for|mat, num|
|000012b0| 41 72 67 73 2c 20 66 69 | 72 73 74 41 72 67 2c 20 |Args, fi|rstArg, |
|000012c0| 73 65 63 6f 6e 64 41 72 | 67 2c 0d 09 09 09 09 09 |secondAr|g,......|
|000012d0| 09 09 28 66 6c 6f 61 74 | 29 28 2a 28 46 72 61 63 |..(float|)(*(Frac|
|000012e0| 74 2a 29 66 69 78 65 64 | 57 61 6c 6b 65 72 2b 2b |t*)fixed|Walker++|
|000012f0| 29 20 2f 20 30 78 34 30 | 30 30 30 30 30 30 29 3b |) / 0x40|000000);|
|00001300| 0d 09 09 09 09 09 09 0d | 09 09 09 09 09 09 69 66 |........|......if|
|00001310| 20 28 6a 20 21 3d 20 30 | 29 20 50 75 74 43 53 74 | (j != 0|) PutCSt|
|00001320| 72 28 22 5c 6e 22 29 3b | 0d 09 09 09 09 09 7d 0d |r("\n");|......}.|
|00001330| 09 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 09 |.....bre|ak;.....|
|00001340| 09 0d 09 09 09 09 63 61 | 73 65 20 27 72 27 3a 20 |......ca|se 'r': |
|00001350| 2f 2a 20 52 65 63 74 2a | 20 2a 2f 0d 09 09 09 09 |/* Rect*| */.....|
|00001360| 09 2a 63 6f 6e 76 43 68 | 61 72 20 3d 20 27 64 27 |.*convCh|ar = 'd'|
|00001370| 3b 0d 09 09 09 09 09 0d | 09 09 09 09 09 73 68 6f |;.......|.....sho|
|00001380| 72 74 57 61 6c 6b 65 72 | 20 3d 20 2a 28 28 73 68 |rtWalker| = *((sh|
|00001390| 6f 72 74 2a 2a 29 73 74 | 61 63 6b 50 74 72 29 2b |ort**)st|ackPtr)+|
|000013a0| 2b 3b 0d 09 09 09 09 09 | 0d 09 09 09 09 09 66 6f |+;......|......fo|
|000013b0| 72 20 28 69 20 3d 20 33 | 3b 20 69 20 3e 3d 20 30 |r (i = 3|; i >= 0|
|000013c0| 3b 20 2d 2d 69 29 20 7b | 0d 09 09 09 09 09 09 46 |; --i) {|.......F|
|000013d0| 6f 72 6d 61 74 4c 6f 6e | 67 28 66 6f 72 6d 61 74 |ormatLon|g(format|
|000013e0| 2c 20 6e 75 6d 41 72 67 | 73 2c 20 66 69 72 73 74 |, numArg|s, first|
|000013f0| 41 72 67 2c 20 73 65 63 | 6f 6e 64 41 72 67 2c 0d |Arg, sec|ondArg,.|
|00001400| 09 09 09 09 09 09 09 2a | 73 68 6f 72 74 57 61 6c |.......*|shortWal|
|00001410| 6b 65 72 2b 2b 29 3b 0d | 09 09 09 09 09 09 0d 09 |ker++);.|........|
|00001420| 09 09 09 09 09 69 66 20 | 28 69 20 21 3d 20 30 29 |.....if |(i != 0)|
|00001430| 20 50 75 74 43 53 74 72 | 28 22 2c 20 22 29 3b 0d | PutCStr|(", ");.|
|00001440| 09 09 09 09 09 7d 0d 09 | 09 09 09 09 62 72 65 61 |.....}..|....brea|
|00001450| 6b 3b 0d 09 09 09 09 63 | 61 73 65 20 27 52 27 3a |k;.....c|ase 'R':|
|00001460| 20 2f 2a 20 72 65 63 74 | 61 6e 67 6c 65 2a 20 2a | /* rect|angle* *|
|00001470| 2f 0d 09 09 09 09 09 2a | 63 6f 6e 76 43 68 61 72 |/......*|convChar|
|00001480| 20 3d 20 27 66 27 3b 0d | 09 09 09 09 09 0d 09 09 | = 'f';.|........|
|00001490| 09 09 09 66 69 78 65 64 | 57 61 6c 6b 65 72 20 3d |...fixed|Walker =|
|000014a0| 20 2a 28 28 46 69 78 65 | 64 2a 2a 29 73 74 61 63 | *((Fixe|d**)stac|
|000014b0| 6b 50 74 72 29 2b 2b 3b | 0d 09 09 09 09 09 0d 09 |kPtr)++;|........|
|000014c0| 09 09 09 09 66 6f 72 20 | 28 69 20 3d 20 33 3b 20 |....for |(i = 3; |
|000014d0| 69 20 3e 3d 20 30 3b 20 | 2d 2d 69 29 20 7b 0d 09 |i >= 0; |--i) {..|
|000014e0| 09 09 09 09 09 46 6f 72 | 6d 61 74 46 6c 6f 61 74 |.....For|matFloat|
|000014f0| 28 66 6f 72 6d 61 74 2c | 20 6e 75 6d 41 72 67 73 |(format,| numArgs|
|00001500| 2c 20 66 69 72 73 74 41 | 72 67 2c 20 73 65 63 6f |, firstA|rg, seco|
|00001510| 6e 64 41 72 67 2c 0d 09 | 09 09 09 09 09 09 28 66 |ndArg,..|......(f|
|00001520| 6c 6f 61 74 29 2a 66 69 | 78 65 64 57 61 6c 6b 65 |loat)*fi|xedWalke|
|00001530| 72 2b 2b 20 2f 20 30 78 | 30 30 30 31 30 30 30 30 |r++ / 0x|00010000|
|00001540| 29 3b 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |);......|........|
|00001550| 0d 09 09 09 09 09 09 69 | 66 20 28 69 20 21 3d 20 |.......i|f (i != |
|00001560| 30 29 20 50 75 74 43 53 | 74 72 28 22 2c 20 22 29 |0) PutCS|tr(", ")|
|00001570| 3b 0d 09 09 09 09 09 7d | 0d 09 09 09 09 09 62 72 |;......}|......br|
|00001580| 65 61 6b 3b 0d 09 09 09 | 09 63 61 73 65 20 27 46 |eak;....|.case 'F|
|00001590| 27 3a 20 2f 2a 20 46 69 | 78 65 64 20 2a 2f 0d 09 |': /* Fi|xed */..|
|000015a0| 09 09 09 09 2a 63 6f 6e | 76 43 68 61 72 20 3d 20 |....*con|vChar = |
|000015b0| 27 66 27 3b 0d 09 09 09 | 09 09 0d 09 09 09 09 09 |'f';....|........|
|000015c0| 46 6f 72 6d 61 74 46 6c | 6f 61 74 28 66 6f 72 6d |FormatFl|oat(form|
|000015d0| 61 74 2c 20 6e 75 6d 41 | 72 67 73 2c 20 66 69 72 |at, numA|rgs, fir|
|000015e0| 73 74 41 72 67 2c 20 73 | 65 63 6f 6e 64 41 72 67 |stArg, s|econdArg|
|000015f0| 2c 0d 09 09 09 09 09 09 | 28 66 6c 6f 61 74 29 28 |,.......|(float)(|
|00001600| 2a 28 28 46 69 78 65 64 | 2a 29 73 74 61 63 6b 50 |*((Fixed|*)stackP|
|00001610| 74 72 29 2b 2b 29 20 2f | 20 30 78 30 30 30 31 30 |tr)++) /| 0x00010|
|00001620| 30 30 30 29 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |000);...|........|
|00001630| 0d 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00001640| 09 63 61 73 65 20 27 66 | 27 3a 0d 09 09 09 09 63 |.case 'f|':.....c|
|00001650| 61 73 65 20 27 65 27 3a | 0d 09 09 09 09 63 61 73 |ase 'e':|.....cas|
|00001660| 65 20 27 45 27 3a 0d 09 | 09 09 09 63 61 73 65 20 |e 'E':..|...case |
|00001670| 27 67 27 3a 0d 09 09 09 | 09 63 61 73 65 20 27 47 |'g':....|.case 'G|
|00001680| 27 3a 0d 09 09 09 09 09 | 46 6f 72 6d 61 74 46 6c |':......|FormatFl|
|00001690| 6f 61 74 28 66 6f 72 6d | 61 74 2c 20 6e 75 6d 41 |oat(form|at, numA|
|000016a0| 72 67 73 2c 20 66 69 72 | 73 74 41 72 67 2c 20 73 |rgs, fir|stArg, s|
|000016b0| 65 63 6f 6e 64 41 72 67 | 2c 0d 09 09 09 09 09 09 |econdArg|,.......|
|000016c0| 2a 28 28 65 78 74 65 6e | 64 65 64 2a 29 73 74 61 |*((exten|ded*)sta|
|000016d0| 63 6b 50 74 72 29 2b 2b | 29 3b 0d 09 09 09 09 09 |ckPtr)++|);......|
|000016e0| 62 72 65 61 6b 3b 0d 09 | 09 09 09 64 65 66 61 75 |break;..|...defau|
|000016f0| 6c 74 3a 0d 09 09 09 09 | 09 46 6f 72 6d 61 74 4c |lt:.....|.FormatL|
|00001700| 6f 6e 67 28 66 6f 72 6d | 61 74 2c 20 6e 75 6d 41 |ong(form|at, numA|
|00001710| 72 67 73 2c 20 66 69 72 | 73 74 41 72 67 2c 20 73 |rgs, fir|stArg, s|
|00001720| 65 63 6f 6e 64 41 72 67 | 2c 0d 09 09 09 09 09 09 |econdArg|,.......|
|00001730| 2a 28 28 6c 6f 6e 67 2a | 29 73 74 61 63 6b 50 74 |*((long*|)stackPt|
|00001740| 72 29 2b 2b 29 3b 0d 09 | 09 09 09 09 62 72 65 61 |r)++);..|....brea|
|00001750| 6b 3b 0d 09 09 09 09 7d | 0d 09 09 09 7d 0d 09 09 |k;.....}|....}...|
|00001760| 09 50 75 74 4c 69 6e 65 | 28 29 3b 0d 09 09 09 0d |.PutLine|();.....|
|00001770| 09 09 09 64 63 6d 64 53 | 77 61 70 57 6f 72 6c 64 |...dcmdS|wapWorld|
|00001780| 73 28 29 3b 0d 09 09 7d | 0d 09 09 62 72 65 61 6b |s();...}|...break|
|00001790| 3b 0d 09 63 61 73 65 20 | 64 63 6d 64 48 65 6c 70 |;..case |dcmdHelp|
|000017a0| 3a 0d 09 09 64 63 6d 64 | 44 72 61 77 4c 69 6e 65 |:...dcmd|DrawLine|
|000017b0| 28 0d 09 09 22 5c 70 64 | 70 72 69 6e 74 66 22 29 |(..."\pd|printf")|
|000017c0| 3b 0d 09 09 64 63 6d 64 | 44 72 61 77 4c 69 6e 65 |;...dcmd|DrawLine|
|000017d0| 28 0d 09 09 22 5c 70 20 | 20 20 64 70 72 69 6e 74 |(..."\p |  dprint|
|000017e0| 66 20 69 73 20 75 73 65 | 64 20 74 6f 20 64 69 73 |f is use|d to dis|
|000017f0| 70 6c 61 79 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |play inf|ormation|
|00001800| 20 66 72 6f 6d 20 61 20 | 43 22 29 3b 0d 09 09 64 | from a |C");...d|
|00001810| 63 6d 64 44 72 61 77 4c | 69 6e 65 28 0d 09 09 22 |cmdDrawL|ine(..."|
|00001820| 5c 70 20 20 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |\p   app|lication|
|00001830| 2e 20 53 65 65 20 45 78 | 63 65 70 74 69 6f 6e 73 |. See Ex|ceptions|
|00001840| 2e 68 20 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |.h for m|ore info|
|00001850| 72 6d 61 74 69 6f 6e 2e | 22 29 3b 0d 09 09 62 72 |rmation.|");...br|
|00001860| 65 61 6b 3b 0d 09 64 65 | 66 61 75 6c 74 3a 0d 09 |eak;..de|fault:..|
|00001870| 09 64 63 6d 64 44 72 61 | 77 4c 69 6e 65 28 22 5c |.dcmdDra|wLine("\|
|00001880| 70 75 6e 6b 6e 6f 77 6e | 20 72 65 71 75 65 73 74 |punknown| request|
|00001890| 22 29 3b 0d 09 09 62 72 | 65 61 6b 3b 0d 09 7d 0d |");...br|eak;..}.|
|000018a0| 7d 3b 20 2f 2a 20 43 6f | 6d 6d 61 6e 64 45 6e 74 |}; /* Co|mmandEnt|
|000018b0| 72 79 20 2a 2f 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |ry */../|********|
|000018c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000018f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0d 52 |********|*****..R|
|00001900| 4f 55 54 49 4e 45 0d 09 | 46 6f 72 6d 61 74 46 6c |OUTINE..|FormatFl|
|00001910| 6f 61 74 0d 0d 44 45 53 | 43 52 49 50 54 49 4f 4e |oat..DES|CRIPTION|
|00001920| 0d 09 54 68 69 73 20 77 | 69 6c 6c 20 66 6f 72 6d |..This w|ill form|
|00001930| 61 74 20 61 20 66 6c 6f | 61 74 20 61 63 63 6f 72 |at a flo|at accor|
|00001940| 64 69 6e 67 20 74 6f 20 | 74 68 65 20 66 6f 72 6d |ding to |the form|
|00001950| 61 74 20 73 74 72 69 6e | 67 2e 0d 0d 2a 2a 2a 2a |at strin|g...****|
|00001960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019a0| 2a 2f 0d 0d 76 6f 69 64 | 20 46 6f 72 6d 61 74 46 |*/..void| FormatF|
|000019b0| 6c 6f 61 74 28 63 6f 6e | 73 74 20 63 68 61 72 2a |loat(con|st char*|
|000019c0| 20 66 6f 72 6d 61 74 2c | 20 73 68 6f 72 74 20 6e | format,| short n|
|000019d0| 75 6d 41 72 67 73 2c 20 | 6c 6f 6e 67 20 66 69 72 |umArgs, |long fir|
|000019e0| 73 74 41 72 67 2c 0d 09 | 6c 6f 6e 67 20 73 65 63 |stArg,..|long sec|
|000019f0| 6f 6e 64 41 72 67 2c 20 | 66 6c 6f 61 74 20 74 68 |ondArg, |float th|
|00001a00| 65 46 6c 6f 61 74 29 0d | 7b 0d 09 63 68 61 72 09 |eFloat).|{..char.|
|00001a10| 66 69 6e 61 6c 5b 32 35 | 36 5d 3b 0d 0d 09 73 77 |final[25|6];...sw|
|00001a20| 69 74 63 68 20 28 6e 75 | 6d 41 72 67 73 29 20 7b |itch (nu|mArgs) {|
|00001a30| 0d 09 63 61 73 65 20 30 | 3a 0d 09 09 73 70 72 69 |..case 0|:...spri|
|00001a40| 6e 74 66 28 66 69 6e 61 | 6c 2c 20 66 6f 72 6d 61 |ntf(fina|l, forma|
|00001a50| 74 2c 20 74 68 65 46 6c | 6f 61 74 29 3b 0d 09 09 |t, theFl|oat);...|
|00001a60| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 31 3a 0d |break;..|case 1:.|
|00001a70| 09 09 73 70 72 69 6e 74 | 66 28 66 69 6e 61 6c 2c |..sprint|f(final,|
|00001a80| 20 66 6f 72 6d 61 74 2c | 20 66 69 72 73 74 41 72 | format,| firstAr|
|00001a90| 67 2c 20 74 68 65 46 6c | 6f 61 74 29 3b 0d 09 09 |g, theFl|oat);...|
|00001aa0| 62 72 65 61 6b 3b 0d 09 | 63 61 73 65 20 32 3a 0d |break;..|case 2:.|
|00001ab0| 09 09 73 70 72 69 6e 74 | 66 28 66 69 6e 61 6c 2c |..sprint|f(final,|
|00001ac0| 20 66 6f 72 6d 61 74 2c | 20 66 69 72 73 74 41 72 | format,| firstAr|
|00001ad0| 67 2c 20 73 65 63 6f 6e | 64 41 72 67 2c 20 74 68 |g, secon|dArg, th|
|00001ae0| 65 46 6c 6f 61 74 29 3b | 0d 09 09 62 72 65 61 6b |eFloat);|...break|
|00001af0| 3b 0d 09 7d 0d 09 50 75 | 74 43 53 74 72 28 66 69 |;..}..Pu|tCStr(fi|
|00001b00| 6e 61 6c 29 3b 0d 7d 20 | 2f 2a 20 46 6f 72 6d 61 |nal);.} |/* Forma|
|00001b10| 74 46 6c 6f 61 74 20 2a | 2f 0d 0d 2f 2a 2a 2a 2a |tFloat *|/../****|
|00001b20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001b60| 2a 0d 0d 52 4f 55 54 49 | 4e 45 0d 09 46 6f 72 6d |*..ROUTI|NE..Form|
|00001b70| 61 74 46 6c 6f 61 74 0d | 0d 44 45 53 43 52 49 50 |atFloat.|.DESCRIP|
|00001b80| 54 49 4f 4e 0d 09 54 68 | 69 73 20 77 69 6c 6c 20 |TION..Th|is will |
|00001b90| 66 6f 72 6d 61 74 20 61 | 20 6c 6f 6e 67 20 61 63 |format a| long ac|
|00001ba0| 63 6f 72 64 69 6e 67 20 | 74 6f 20 74 68 65 20 66 |cording |to the f|
|00001bb0| 6f 72 6d 61 74 20 73 74 | 72 69 6e 67 2e 0d 0d 2a |ormat st|ring...*|
|00001bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c00| 2a 2a 2a 2a 2f 0d 0d 76 | 6f 69 64 20 46 6f 72 6d |****/..v|oid Form|
|00001c10| 61 74 4c 6f 6e 67 28 63 | 6f 6e 73 74 20 63 68 61 |atLong(c|onst cha|
|00001c20| 72 2a 20 66 6f 72 6d 61 | 74 2c 20 73 68 6f 72 74 |r* forma|t, short|
|00001c30| 20 6e 75 6d 41 72 67 73 | 2c 20 6c 6f 6e 67 20 66 | numArgs|, long f|
|00001c40| 69 72 73 74 41 72 67 2c | 0d 09 6c 6f 6e 67 20 73 |irstArg,|..long s|
|00001c50| 65 63 6f 6e 64 41 72 67 | 2c 20 6c 6f 6e 67 20 74 |econdArg|, long t|
|00001c60| 68 65 4c 6f 6e 67 29 0d | 7b 0d 09 63 68 61 72 09 |heLong).|{..char.|
|00001c70| 66 69 6e 61 6c 5b 32 35 | 36 5d 3b 0d 0d 09 73 77 |final[25|6];...sw|
|00001c80| 69 74 63 68 20 28 6e 75 | 6d 41 72 67 73 29 20 7b |itch (nu|mArgs) {|
|00001c90| 0d 09 63 61 73 65 20 30 | 3a 0d 09 09 73 70 72 69 |..case 0|:...spri|
|00001ca0| 6e 74 66 28 66 69 6e 61 | 6c 2c 20 66 6f 72 6d 61 |ntf(fina|l, forma|
|00001cb0| 74 2c 20 74 68 65 4c 6f | 6e 67 29 3b 0d 09 09 62 |t, theLo|ng);...b|
|00001cc0| 72 65 61 6b 3b 0d 09 63 | 61 73 65 20 31 3a 0d 09 |reak;..c|ase 1:..|
|00001cd0| 09 73 70 72 69 6e 74 66 | 28 66 69 6e 61 6c 2c 20 |.sprintf|(final, |
|00001ce0| 66 6f 72 6d 61 74 2c 20 | 66 69 72 73 74 41 72 67 |format, |firstArg|
|00001cf0| 2c 20 74 68 65 4c 6f 6e | 67 29 3b 0d 09 09 62 72 |, theLon|g);...br|
|00001d00| 65 61 6b 3b 0d 09 63 61 | 73 65 20 32 3a 0d 09 09 |eak;..ca|se 2:...|
|00001d10| 73 70 72 69 6e 74 66 28 | 66 69 6e 61 6c 2c 20 66 |sprintf(|final, f|
|00001d20| 6f 72 6d 61 74 2c 20 66 | 69 72 73 74 41 72 67 2c |ormat, f|irstArg,|
|00001d30| 20 73 65 63 6f 6e 64 41 | 72 67 2c 20 74 68 65 4c | secondA|rg, theL|
|00001d40| 6f 6e 67 29 3b 0d 09 09 | 62 72 65 61 6b 3b 0d 09 |ong);...|break;..|
|00001d50| 7d 0d 09 50 75 74 43 53 | 74 72 28 66 69 6e 61 6c |}..PutCS|tr(final|
|00001d60| 29 3b 0d 7d 20 2f 2a 20 | 46 6f 72 6d 61 74 4c 6f |);.} /* |FormatLo|
|00001d70| 6e 67 20 2a 2f 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |ng */../|********|
|00001d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001db0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0d 53 |********|*****..S|
|00001dc0| 54 55 42 53 0d 0d 44 45 | 53 43 52 49 50 54 49 4f |TUBS..DE|SCRIPTIO|
|00001dd0| 4e 0d 09 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |N..The f|ollowing|
|00001de0| 20 61 72 65 20 73 74 75 | 62 73 20 74 6f 20 6f 76 | are stu|bs to ov|
|00001df0| 65 72 72 69 64 65 20 74 | 68 65 20 43 20 6c 69 62 |erride t|he C lib|
|00001e00| 72 61 72 79 20 72 6f 75 | 74 69 6e 65 73 20 73 6f |rary rou|tines so|
|00001e10| 20 74 68 61 74 0d 09 74 | 68 65 20 64 63 6d 64 20 | that..t|he dcmd |
|00001e20| 69 73 6e d5 74 20 73 6f | 20 62 69 67 2e 20 4e 65 |isn.t so| big. Ne|
|00001e30| 69 74 68 65 72 20 77 69 | 6c 6c 20 65 76 65 72 20 |ither wi|ll ever |
|00001e40| 62 65 20 63 61 6c 6c 65 | 64 20 62 79 20 73 70 72 |be calle|d by spr|
|00001e50| 69 6e 74 66 2e 0d 0d 2a | 2a 2a 2a 2a 2a 2a 2a 2a |intf...*|********|
|00001e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0d 0d 73 |********|****/..s|
|00001ea0| 69 7a 65 5f 74 20 66 77 | 72 69 74 65 20 28 63 6f |ize_t fw|rite (co|
|00001eb0| 6e 73 74 20 76 6f 69 64 | 20 2a 2c 20 73 69 7a 65 |nst void| *, size|
|00001ec0| 5f 74 2c 20 73 69 7a 65 | 5f 74 2c 20 46 49 4c 45 |_t, size|_t, FILE|
|00001ed0| 20 2a 29 20 7b 20 72 65 | 74 75 72 6e 28 30 29 3b | *) { re|turn(0);|
|00001ee0| 20 7d 0d 5f 66 6c 73 62 | 75 66 28 29 20 7b 7d 0d | }._flsb|uf() {}.|
|00001ef0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f00| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001f10| 03 07 02 07 01 07 01 07 | 01 07 01 07 01 07 01 07 |........|........|
|00001f20| 01 07 01 07 01 07 01 07 | 01 07 01 07 01 07 01 07 |........|........|
|00001f30| 09 44 50 72 69 6e 74 66 | 2e 63 02 00 00 00 54 45 |.DPrintf|.c....TE|
|00001f40| 58 54 4d 50 53 20 01 00 | 00 00 00 00 00 00 00 00 |XTMPS ..|........|
|00001f50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 00 |..TEXTMP|S ......|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 a2 6d df 3d 00 00 | 1e 71 00 00 01 ac 00 00 |...m.=..|.q......|
|00001f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fa0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 01 00 09 |........|........|
|00001fb0| 00 00 02 09 00 0c 00 00 | 02 0c 00 00 00 07 5a 53 |........|......ZS|
|00001fc0| 59 53 00 03 00 00 00 00 | 07 46 4e 44 52 00 03 00 |YS......|.FNDR...|
|00001fd0| 00 00 00 07 49 4e 49 54 | 00 03 00 00 00 00 07 43 |....INIT|.......C|
|00001fe0| 4c 49 50 00 03 00 00 00 | 00 07 46 44 4f 43 00 03 |LIP.....|..FDOC..|
|00001ff0| 00 00 00 00 0a 00 04 00 | 0c 01 89 01 8c 02 09 00 |........|........|
|00002000| 00 00 00 48 00 0c 43 6f | 75 72 69 65 72 00 00 7c |...H..Co|urier..||
|00002010| 00 01 a7 98 00 00 00 00 | 00 00 00 64 29 00 01 b3 |........|...d)...|
|00002020| 00 44 65 76 3a 4e 00 07 | 00 03 00 2a 00 03 01 dd |.Dev:N..|...*....|
|00002030| 02 7d 00 64 00 1c 01 dd | 02 3d a5 6d 8f 11 00 00 |.}.d....|.=.m....|
|00002040| 16 e1 00 00 16 e8 00 00 | 05 c9 01 00 00 00 00 1e |........|........|
|00002050| 00 2a 00 03 01 dd 02 7d | 00 64 00 1c 01 dd 02 3d |.*.....}|.d.....=|
|00002060| 00 00 05 c9 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002070| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 52 |.....n..|.n...>.R|
|00002080| fe a4 07 b8 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00002090| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000020a0| 03 f0 ff ff 00 00 00 4c | 00 54 ff a0 00 00 00 00 |.......L|.T......|
|000020b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+